home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00230_Script_GESTION_BTONS_ZAPETTE_MISC < prev    next >
Text File  |  2004-12-05  |  5KB  |  126 lines
  1. global gL_Zap
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur, pNoBton, pmem_titre
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   if p_nom_Acteur = "BTON_VOLUP" then
  9.     gL_Zap[19] = [p_Nodepiste]
  10.     pNoBton = 1
  11.   else
  12.     gL_Zap[19].add(p_Nodepiste)
  13.     pNoBton = p_Nodepiste - gL_Zap[19][1] + 1
  14.   end if
  15. end
  16. ----------------------------------- 
  17. on mouseEnter
  18.   if the pauseState = 1 then exit
  19.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  20.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution dela MAJ zapette
  21.   pmem_titre = member("TITRE_RUB").text
  22.   case(pNoBton) of
  23.     1:--bouton Volume Up
  24.       cursor 280
  25.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  26.       p_cettePiste.member = p_nom_Acteur&"_R"
  27.       member("TITRE_RUB").text = "Augmenter le volume du son"
  28.     2:--bouton Volume Down
  29.       cursor 280
  30.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  31.       p_cettePiste.member = p_nom_Acteur&"_R"
  32.       member("TITRE_RUB").text = "Diminuer le volume du son"
  33.     3:--pisteVumΦtre
  34.       nothing
  35.     4:--bouton coupe musique
  36.       cursor 280
  37.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  38.       case(gL_Zap[17]) of
  39.         1: --la piste musique marche
  40.           p_cettePiste.member = "BTON_MUSIK_OFF_R"
  41.           member("TITRE_RUB").text = "Couper la musique"
  42.         -1:--la piste musique est dΘsactivΘe
  43.           p_cettePiste.member = "BTON_MUSIK_ON_R"
  44.           member("TITRE_RUB").text = "RΘtablir la musique"
  45.       end case
  46.     5:--bouton print
  47.       cursor 280
  48.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  49.       p_cettePiste.member = p_nom_Acteur&"_R"
  50.       member("TITRE_RUB").text = "Imprimer"
  51.     6:--bouton screenshot
  52.       cursor 280
  53.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  54.       p_cettePiste.member = p_nom_Acteur&"_R"
  55.       member("TITRE_RUB").text = "Copie d'Θcran"
  56.     7:--bouton rubrique prΘcΘdente
  57.       cursor 280
  58.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  59.       p_cettePiste.member = p_nom_Acteur&"_R"
  60.       member("TITRE_RUB").text = "Rubrique prΘcΘdente"
  61.     8:--bouton rubrique suivante
  62.       cursor 280
  63.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  64.       p_cettePiste.member = p_nom_Acteur&"_R"
  65.       member("TITRE_RUB").text = "Rubrique suivante"
  66.     9:--bouton quitter
  67.       lowjingle(8,"MISC_"&gimme2digits(pNoBton), "O")
  68.       cursor 280
  69.       p_cettePiste.member = p_nom_Acteur&"_R"
  70.       member("TITRE_RUB").text = "Quitter Mobiclic"
  71.       updateStage
  72.   end case
  73.   updateStage
  74. end
  75. -----------------------
  76. on mouseWithin
  77.   if the pauseState = 1 then exit
  78.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  79.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  80.   case(pNoBton) of
  81.     1,2,5,6,7,8,9:--boutons Volume Up,Volume Down,print,screenshot,rubrique prΘcΘdente,rubrique suivante,quitter
  82.       cursor 280
  83.     3:--pisteVumΦtre
  84.       nothing
  85.     4:--bouton coupe musique
  86.       cursor 280
  87.   end case
  88.   updateStage
  89. end
  90. ---------------------------------
  91. on mouseLeave
  92.   cursor -1
  93.   if the pauseState = 1 then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  94.   if gL_Zap[9] <> "ATTENTE" then exit
  95.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  96.   case(pNoBton) of
  97.     1,2,5,6,7,8,9:--bouton Volume Up--boutons Volume Up,Volume Down,print,screenshot,rubrique prΘcΘdente,rubrique suivante,quitter
  98.       puppetSprite  p_Nodepiste, FALSE
  99.     3:--pisteVumΦtre
  100.       nothing
  101.     4:--bouton coupe musique
  102.       case(gL_Zap[17]) of
  103.         1: --la piste musique marche
  104.           p_cettePiste.member = "BTON_MUSIK_OFF"
  105.         -1:--la piste musique est dΘsactivΘe
  106.           p_cettePiste.member = "BTON_MUSIK_ON"
  107.       end case
  108.   end case
  109.   --  member("TITRE_RUB").text =  localparam("MISC","ZTITLE")
  110.   if not(voidP(pmem_titre)) then
  111.     member("TITRE_RUB").text = pmem_titre
  112.   else
  113.     member("TITRE_RUB").text = EMPTY
  114.   end if
  115.   updateStage
  116. end
  117. ----------------------------------- 
  118. on mouseUp
  119.   if the pauseState = 1 then exit
  120.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  121.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  122.   cursor -1
  123.   ZAP_MISC(pNoBton)
  124. end
  125. ----------------------------------- 
  126.